home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 222 / 222.d81 / letter drop (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  93 lines
  1. 10 poke51,0:poke52,144:poke55,0:poke56,144:clr:tem=36864:ml=49152:sb=53265
  2. 20 sp=53269:bc=53280:sc=53281:cc=646:dv=peek(186):ifdv<8thendv=8
  3. 22 poke53281,0:poke53280,0
  4. 30 :
  5. 40 sys57812"toolbox 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  6. 50 system+30,"letter font",dv,2048
  7. 60 system+30,"letter drop.ml",dv,ml:poke2,1:sysml
  8. 62 poke49202,1
  9. 70 bx$="_[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]_"
  10. 72 li$="[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
  11. 80 pokesb,peek(sb)and239
  12. 90 printchr$(142)chr$(8):poke53272,19:poke788,52
  13. 100 print"[147]";:fori=1to23:print"[214]"spc(37)"[214]":next
  14. 110 print""li$:print""li$:print""li$:print""li$
  15. 200 forr=1065to1101:poke54272+r,7:readdt:poker,dt:next
  16. 210 forr=1105to1141:poke54272+r,7:readdt:poker,dt:next
  17. 220 pokecc,15:forr=1to6:system+24,2,11+r,bx$:next
  18. 230 system+27,11,"=================================== "
  19. 240 poke214,19:print:printtab(7)"load   quit   hint   solve":print
  20. 250 system+27,21,"use crsr keys/return or joystick 2"
  21. 260 ms$(1)="press any key ":ms$(2)="(y/n)"
  22. 270 system+18,208:system+18,216:pokesb,peek(sb)or16
  23. 280 system+45,"lq"
  24. 290 onf%goto300,630,550
  25. 300 gosub750:dv=jj:system+21,208:m1$="searching for puzzle files  ":gosub660
  26. 310 system,"$:ld.*",dv,200*256,10,5,9,13,1
  27. 320 iff$=""andval(e$)thenm1$=e$:m2$=ms$(1):gosub680:goto300
  28. 330 iff$<>""then350
  29. 340 m1$="no puzzle files found ":m2$=ms$(1):gosub680:system+21,208:goto280
  30. 350 na$=f$:m1$="loading "+f$:gosub660
  31. 360 system+42,"",dv:ifval(e$)thenm1$=e$:m2$=ms$(1):gosub680:goto300
  32. 370 system+30,na$,dv,50688
  33. 380 system+42,"",dv:ifval(e$)thenm1$=e$:m2$=ms$(1):gosub680:goto300
  34. 390 system+21,216:poke2,2
  35. 392 poke214,19:print:printtab(7)"load   quit   hint   solve":print
  36. 393 close15
  37. 400 sysml:fl=peek(2):ifflthen420
  38. 410 pokesp,0:system+18,208:goto580
  39. 420 iffl=13then480
  40. 430 pokesp,0:system+18,208
  41. 440 m1$="quit this puzzle?  ":m2$=ms$(2):gosub660
  42. 450 getd$:ifd$="n"thensystem+21,208:poke2,4:pokesp,1:goto400
  43. 460 ifd$<>"y"then450
  44. 470 system+21,216:goto280
  45. 480 r=5
  46. 490 m1$="you've solved the puzzle  ":m2$="":gosub660:fort=1to400:next
  47. 500 m1$="":gosub660:fort=1to400:next:r=r-1:ifrthen490
  48. 510 goto470
  49. 530 poke198,0:wait198,1:poke198,0
  50. 540 :
  51. 550 system+18,208:ifpsthen580
  52. 560 m1$="there is no puzzle to solve  ":m2$=ms$(1):gosub680
  53. 570 system+21,208:goto280
  54. 580 m1$="solve the puzzle?  ":m2$=ms$(2):gosub660
  55. 590 getd$:ifd$="y"then620
  56. 600 ifd$<>"n"then590
  57. 610 system+21,208:iffl=0thenpoke2,4:pokesp,1:goto400
  58. 620 system+21,208:poke2,3:sysml:ps=0
  59. 622 poke214,19:print:printtab(7)"load   quit   hint   solve":print
  60. 624 goto280
  61. 630 system+18,208:m1$="quit letter drop? ":m2$=ms$(2):gosub680
  62. 640 ifd$<>"y"thensystem+21,208:goto280
  63. 650 goto690
  64. 660 system+15,1,37,19,22,160,13:print"[153]";:system+27,20,m1$:m1$=""
  65. 670 system+27,21,m2$:m2$="":return
  66. 680 gosub660:poke198,0:wait198,15:getd$:return
  67. 690 goto40000
  68. 750 system+15,16,22,6,11,160,13:print"[153]";
  69. 760 fori=0to3:system+24,17,7+i,str$(8+i):next
  70. 770 ifm1$<>""thengosub660:goto790
  71. 780 m1$="please select desired drive ":m2$="crsr/return ":gosub660
  72. 790 system+48,7,17,20,4,13,1,133:jj=f%+7:close2:open2,jj,2:close2
  73. 800 return::::ifstthen790
  74. 810 return
  75. 820 :
  76. 830 data 195,195,195,195,195,195,195,195,194,195,198,199,201,202,201,202,198
  77. 840 data 199,198,205,195,195,208,209,198,205,212,213,198,205,195,195,195,195
  78. 850 data 195,195,195,195,195,195,195,195,195,195,195,196,197,196,200,203,204
  79. 860 data 203,204,196,200,206,207,195,195,210,211,206,207,214,215,216,195,195
  80. 870 data 195,195,195,195,195,195,195
  81. 880 :
  82. 10000 dv=peek(186):n$="letter drop":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  83. 40000 fori=0to21:poke828+i,8+i:next
  84. 40010 ifdv<8ordv>29ordv=8then40030
  85. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  86. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  87. 40040 close2:open2,i,2:close2:ifstthen40060
  88. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  89. 40060 next:print"[147]":poke53272,23:poke186,8:end
  90. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  91. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  92. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  93.